home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / docume1a / mdiform1 (.txt) < prev   
Encoding:
Visual Basic Form  |  1999-09-10  |  37.3 KB  |  1,100 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
  3. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
  4. Begin VB.MDIForm MDIForm1 
  5.    BackColor       =   &H8000000C&
  6.    Caption         =   "Document Editor"
  7.    ClientHeight    =   3195
  8.    ClientLeft      =   165
  9.    ClientTop       =   735
  10.    ClientWidth     =   4680
  11.    LinkTopic       =   "MDIForm1"
  12.    LockControls    =   -1  'True
  13.    StartUpPosition =   3  'Windows Default
  14.    WindowState     =   2  'Maximized
  15.    Begin ComctlLib.Toolbar Toolbar1 
  16.       Align           =   1  'Align Top
  17.       Height          =   1035
  18.       Left            =   0
  19.       TabIndex        =   0
  20.       Top             =   0
  21.       Width           =   4680
  22.       _ExtentX        =   8255
  23.       _ExtentY        =   1826
  24.       ButtonWidth     =   609
  25.       ButtonHeight    =   556
  26.       AllowCustomize  =   0   'False
  27.       Appearance      =   1
  28.       ImageList       =   "ImageList1"
  29.       _Version        =   327682
  30.       BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  31.          NumButtons      =   46
  32.          BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  33.             Object.ToolTipText     =   "New"
  34.             Object.Tag             =   ""
  35.             ImageIndex      =   1
  36.          EndProperty
  37.          BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  38.             Object.ToolTipText     =   "Open"
  39.             Object.Tag             =   ""
  40.             ImageIndex      =   2
  41.          EndProperty
  42.          BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  43.             Enabled         =   0   'False
  44.             Object.ToolTipText     =   "Save"
  45.             Object.Tag             =   ""
  46.             ImageIndex      =   3
  47.          EndProperty
  48.          BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  49.             Enabled         =   0   'False
  50.             Object.ToolTipText     =   "Save As"
  51.             Object.Tag             =   ""
  52.             ImageIndex      =   4
  53.          EndProperty
  54.          BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  55.             Enabled         =   0   'False
  56.             Object.ToolTipText     =   "Delete"
  57.             Object.Tag             =   ""
  58.             ImageIndex      =   5
  59.          EndProperty
  60.          BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  61.             Enabled         =   0   'False
  62.             Object.ToolTipText     =   "Print"
  63.             Object.Tag             =   ""
  64.             ImageIndex      =   6
  65.          EndProperty
  66.          BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  67.             Enabled         =   0   'False
  68.             Object.ToolTipText     =   "Print Preview"
  69.             Object.Tag             =   ""
  70.             ImageIndex      =   7
  71.          EndProperty
  72.          BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  73.             Object.ToolTipText     =   "Close"
  74.             Object.Tag             =   ""
  75.             ImageIndex      =   8
  76.          EndProperty
  77.          BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  78.             Object.Visible         =   0   'False
  79.             Object.Tag             =   ""
  80.             Style           =   4
  81.             Object.Width           =   130
  82.             MixedState      =   -1  'True
  83.          EndProperty
  84.          BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  85.             Object.Visible         =   0   'False
  86.             Object.Tag             =   ""
  87.             Style           =   4
  88.             Object.Width           =   130
  89.             MixedState      =   -1  'True
  90.          EndProperty
  91.          BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  92.             Object.Tag             =   ""
  93.             Style           =   4
  94.             Object.Width           =   240
  95.             MixedState      =   -1  'True
  96.          EndProperty
  97.          BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  98.             Enabled         =   0   'False
  99.             Object.ToolTipText     =   "Cut"
  100.             Object.Tag             =   ""
  101.             ImageIndex      =   9
  102.          EndProperty
  103.          BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  104.             Enabled         =   0   'False
  105.             Object.ToolTipText     =   "Copy"
  106.             Object.Tag             =   ""
  107.             ImageIndex      =   10
  108.          EndProperty
  109.          BeginProperty Button14 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  110.             Object.ToolTipText     =   "Paste"
  111.             Object.Tag             =   ""
  112.             ImageIndex      =   11
  113.          EndProperty
  114.          BeginProperty Button15 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  115.             Object.Tag             =   ""
  116.             Style           =   4
  117.             Object.Width           =   400
  118.             MixedState      =   -1  'True
  119.          EndProperty
  120.          BeginProperty Button16 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  121.             Enabled         =   0   'False
  122.             Object.ToolTipText     =   "Spell Checker"
  123.             Object.Tag             =   ""
  124.             ImageIndex      =   21
  125.             Object.Width           =   130
  126.             MixedState      =   -1  'True
  127.          EndProperty
  128.          BeginProperty Button17 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  129.             Object.Tag             =   ""
  130.             Style           =   4
  131.             Object.Width           =   400
  132.             MixedState      =   -1  'True
  133.          EndProperty
  134.          BeginProperty Button18 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  135.             Enabled         =   0   'False
  136.             Object.ToolTipText     =   "Find"
  137.             Object.Tag             =   ""
  138.             ImageIndex      =   12
  139.          EndProperty
  140.          BeginProperty Button19 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  141.             Object.Visible         =   0   'False
  142.             Object.Tag             =   ""
  143.             Style           =   4
  144.             Object.Width           =   130
  145.             MixedState      =   -1  'True
  146.          EndProperty
  147.          BeginProperty Button20 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  148.             Object.Visible         =   0   'False
  149.             Object.Tag             =   ""
  150.             Style           =   4
  151.             Object.Width           =   130
  152.             MixedState      =   -1  'True
  153.          EndProperty
  154.          BeginProperty Button21 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  155.             Object.Tag             =   ""
  156.             Style           =   4
  157.             Object.Width           =   240
  158.             MixedState      =   -1  'True
  159.          EndProperty
  160.          BeginProperty Button22 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  161.             Enabled         =   0   'False
  162.             Object.ToolTipText     =   "Bold"
  163.             Object.Tag             =   ""
  164.             ImageIndex      =   13
  165.          EndProperty
  166.          BeginProperty Button23 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  167.             Enabled         =   0   'False
  168.             Object.ToolTipText     =   "Italic"
  169.             Object.Tag             =   ""
  170.             ImageIndex      =   14
  171.          EndProperty
  172.          BeginProperty Button24 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  173.             Enabled         =   0   'False
  174.             Object.ToolTipText     =   "Underline"
  175.             Object.Tag             =   ""
  176.             ImageIndex      =   15
  177.          EndProperty
  178.          BeginProperty Button25 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  179.             Enabled         =   0   'False
  180.             Object.ToolTipText     =   "Strikethru"
  181.             Object.Tag             =   ""
  182.             ImageIndex      =   16
  183.          EndProperty
  184.          BeginProperty Button26 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  185.             Object.Visible         =   0   'False
  186.             Object.Tag             =   ""
  187.             Style           =   4
  188.             Object.Width           =   130
  189.             MixedState      =   -1  'True
  190.          EndProperty
  191.          BeginProperty Button27 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  192.             Object.Visible         =   0   'False
  193.             Object.Tag             =   ""
  194.             Style           =   4
  195.             Object.Width           =   130
  196.             MixedState      =   -1  'True
  197.          EndProperty
  198.          BeginProperty Button28 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  199.             Object.Tag             =   ""
  200.             Style           =   4
  201.             Object.Width           =   240
  202.             MixedState      =   -1  'True
  203.          EndProperty
  204.          BeginProperty Button29 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  205.             Enabled         =   0   'False
  206.             Object.ToolTipText     =   "Left"
  207.             Object.Tag             =   ""
  208.             ImageIndex      =   17
  209.             Style           =   2
  210.          EndProperty
  211.          BeginProperty Button30 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  212.             Enabled         =   0   'False
  213.             Object.ToolTipText     =   "Center"
  214.             Object.Tag             =   ""
  215.             ImageIndex      =   18
  216.             Style           =   2
  217.          EndProperty
  218.          BeginProperty Button31 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  219.             Enabled         =   0   'False
  220.             Object.ToolTipText     =   "Right"
  221.             Object.Tag             =   ""
  222.             ImageIndex      =   19
  223.             Style           =   2
  224.          EndProperty
  225.          BeginProperty Button32 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  226.             Object.Tag             =   ""
  227.             Style           =   4
  228.             Object.Width           =   1700
  229.             MixedState      =   -1  'True
  230.          EndProperty
  231.          BeginProperty Button33 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  232.             Object.Visible         =   0   'False
  233.             Object.Tag             =   ""
  234.             MixedState      =   -1  'True
  235.          EndProperty
  236.          BeginProperty Button34 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  237.             Object.Visible         =   0   'False
  238.             Object.Tag             =   ""
  239.             MixedState      =   -1  'True
  240.          EndProperty
  241.          BeginProperty Button35 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  242.             Object.Visible         =   0   'False
  243.             Object.Tag             =   ""
  244.             MixedState      =   -1  'True
  245.          EndProperty
  246.          BeginProperty Button36 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  247.             Object.Visible         =   0   'False
  248.             Object.Tag             =   ""
  249.             Object.Width           =   200
  250.             MixedState      =   -1  'True
  251.          EndProperty
  252.          BeginProperty Button37 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  253.             Object.Visible         =   0   'False
  254.             Object.Tag             =   ""
  255.             Object.Width           =   200
  256.             MixedState      =   -1  'True
  257.          EndProperty
  258.          BeginProperty Button38 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  259.             Object.Visible         =   0   'False
  260.             Object.Tag             =   ""
  261.             Object.Width           =   200
  262.             MixedState      =   -1  'True
  263.          EndProperty
  264.          BeginProperty Button39 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  265.             Object.Visible         =   0   'False
  266.             Object.Tag             =   ""
  267.             MixedState      =   -1  'True
  268.          EndProperty
  269.          BeginProperty Button40 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  270.             Object.Visible         =   0   'False
  271.             Object.Tag             =   ""
  272.             MixedState      =   -1  'True
  273.          EndProperty
  274.          BeginProperty Button41 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  275.             Object.Visible         =   0   'False
  276.             Object.Tag             =   ""
  277.             MixedState      =   -1  'True
  278.          EndProperty
  279.          BeginProperty Button42 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  280.             Object.Visible         =   0   'False
  281.             Object.Tag             =   ""
  282.             Style           =   4
  283.             Object.Width           =   2000
  284.             MixedState      =   -1  'True
  285.          EndProperty
  286.          BeginProperty Button43 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  287.             Object.Visible         =   0   'False
  288.             Object.Tag             =   ""
  289.             Style           =   4
  290.             MixedState      =   -1  'True
  291.          EndProperty
  292.          BeginProperty Button44 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  293.             Object.Visible         =   0   'False
  294.             Object.Tag             =   ""
  295.             MixedState      =   -1  'True
  296.          EndProperty
  297.          BeginProperty Button45 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  298.             Object.Visible         =   0   'False
  299.             Object.Tag             =   ""
  300.             MixedState      =   -1  'True
  301.          EndProperty
  302.          BeginProperty Button46 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  303.             Object.ToolTipText     =   "Exit"
  304.             Object.Tag             =   ""
  305.             ImageIndex      =   20
  306.          EndProperty
  307.       EndProperty
  308.       Begin VB.ComboBox Combo2 
  309.          Height          =   315
  310.          Left            =   8760
  311.          TabIndex        =   2
  312.          Top             =   0
  313.          Width           =   1110
  314.       End
  315.    End
  316.    Begin MSComDlg.CommonDialog CommonDialog4 
  317.       Left            =   2520
  318.       Top             =   480
  319.       _ExtentX        =   847
  320.       _ExtentY        =   847
  321.       _Version        =   327681
  322.    End
  323.    Begin ComctlLib.StatusBar StatusBar2 
  324.       Align           =   2  'Align Bottom
  325.       Height          =   330
  326.       Left            =   0
  327.       TabIndex        =   3
  328.       Top             =   2535
  329.       Visible         =   0   'False
  330.       Width           =   4680
  331.       _ExtentX        =   8255
  332.       _ExtentY        =   582
  333.       SimpleText      =   ""
  334.       _Version        =   327682
  335.       BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
  336.          NumPanels       =   1
  337.          BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  338.             Object.Width           =   10231
  339.             MinWidth        =   10231
  340.             TextSave        =   ""
  341.             Object.Tag             =   ""
  342.          EndProperty
  343.       EndProperty
  344.    End
  345.    Begin MSComDlg.CommonDialog CommonDialog3 
  346.       Left            =   1920
  347.       Top             =   480
  348.       _ExtentX        =   847
  349.       _ExtentY        =   847
  350.       _Version        =   327681
  351.       CancelError     =   -1  'True
  352.    End
  353.    Begin MSComDlg.CommonDialog CommonDialog2 
  354.       Left            =   1320
  355.       Top             =   480
  356.       _ExtentX        =   847
  357.       _ExtentY        =   847
  358.       _Version        =   327681
  359.       CancelError     =   -1  'True
  360.       DialogTitle     =   "Save Document"
  361.       Filter          =   "Text Files|*.txt"
  362.       InitDir         =   "C:\Windows"
  363.    End
  364.    Begin MSComDlg.CommonDialog CommonDialog1 
  365.       Left            =   720
  366.       Top             =   480
  367.       _ExtentX        =   847
  368.       _ExtentY        =   847
  369.       _Version        =   327681
  370.       CancelError     =   -1  'True
  371.       DialogTitle     =   "Open Document"
  372.       Filter          =   "Text Files"" & _""All Files (*.*)|*.*|"
  373.       InitDir         =   "C:\Windows"
  374.    End
  375.    Begin ComctlLib.StatusBar StatusBar1 
  376.       Align           =   2  'Align Bottom
  377.       Height          =   330
  378.       Left            =   0
  379.       TabIndex        =   1
  380.       Top             =   2865
  381.       Width           =   4680
  382.       _ExtentX        =   8255
  383.       _ExtentY        =   582
  384.       SimpleText      =   ""
  385.       _Version        =   327682
  386.       BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
  387.          NumPanels       =   8
  388.          BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  389.             AutoSize        =   1
  390.             Object.Width           =   8784
  391.             MinWidth        =   8784
  392.             TextSave        =   ""
  393.             Object.Tag             =   ""
  394.          EndProperty
  395.          BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  396.             Object.Width           =   1499
  397.             MinWidth        =   1499
  398.             Object.Tag             =   ""
  399.          EndProperty
  400.          BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  401.             Object.Width           =   970
  402.             MinWidth        =   970
  403.             Text            =   "Line#"
  404.             TextSave        =   "Line#"
  405.             Object.Tag             =   ""
  406.          EndProperty
  407.          BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  408.             Object.Width           =   1235
  409.             MinWidth        =   1235
  410.             Object.Tag             =   ""
  411.          EndProperty
  412.          BeginProperty Panel5 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  413.             Style           =   5
  414.             Object.Width           =   1764
  415.             MinWidth        =   1764
  416.             TextSave        =   "3:06 PM"
  417.             Object.Tag             =   ""
  418.          EndProperty
  419.          BeginProperty Panel6 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  420.             Style           =   6
  421.             Object.Width           =   1764
  422.             MinWidth        =   1764
  423.             TextSave        =   "09/10/1999"
  424.             Object.Tag             =   ""
  425.          EndProperty
  426.          BeginProperty Panel7 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  427.             Style           =   1
  428.             Enabled         =   0   'False
  429.             Object.Width           =   2293
  430.             MinWidth        =   2293
  431.             TextSave        =   "CAPS"
  432.             Object.Tag             =   ""
  433.          EndProperty
  434.          BeginProperty Panel8 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  435.             Style           =   2
  436.             Object.Width           =   2293
  437.             MinWidth        =   2293
  438.             TextSave        =   "NUM"
  439.             Object.Tag             =   ""
  440.          EndProperty
  441.       EndProperty
  442.    End
  443.    Begin ComctlLib.ImageList ImageList1 
  444.       Left            =   120
  445.       Top             =   480
  446.       _ExtentX        =   1005
  447.       _ExtentY        =   1005
  448.       BackColor       =   -2147483643
  449.       ImageWidth      =   16
  450.       ImageHeight     =   15
  451.       MaskColor       =   12632256
  452.       _Version        =   327682
  453.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  454.          NumListImages   =   22
  455.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  456.             Picture         =   "MDIForm1.frx":0000
  457.             Key             =   ""
  458.          EndProperty
  459.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  460.             Picture         =   "MDIForm1.frx":0542
  461.             Key             =   ""
  462.          EndProperty
  463.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  464.             Picture         =   "MDIForm1.frx":0A84
  465.             Key             =   ""
  466.          EndProperty
  467.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  468.             Picture         =   "MDIForm1.frx":0FC6
  469.             Key             =   ""
  470.          EndProperty
  471.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  472.             Picture         =   "MDIForm1.frx":1508
  473.             Key             =   ""
  474.          EndProperty
  475.          BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  476.             Picture         =   "MDIForm1.frx":161A
  477.             Key             =   ""
  478.          EndProperty
  479.          BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  480.             Picture         =   "MDIForm1.frx":1B5C
  481.             Key             =   ""
  482.          EndProperty
  483.          BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  484.             Picture         =   "MDIForm1.frx":209E
  485.             Key             =   ""
  486.          EndProperty
  487.          BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  488.             Picture         =   "MDIForm1.frx":23B8
  489.             Key             =   ""
  490.          EndProperty
  491.          BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  492.             Picture         =   "MDIForm1.frx":2A32
  493.             Key             =   ""
  494.          EndProperty
  495.          BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  496.             Picture         =   "MDIForm1.frx":2F74
  497.             Key             =   ""
  498.          EndProperty
  499.          BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  500.             Picture         =   "MDIForm1.frx":34B6
  501.             Key             =   ""
  502.          EndProperty
  503.          BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  504.             Picture         =   "MDIForm1.frx":35C8
  505.             Key             =   ""
  506.          EndProperty
  507.          BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  508.             Picture         =   "MDIForm1.frx":36DA
  509.             Key             =   ""
  510.          EndProperty
  511.          BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  512.             Picture         =   "MDIForm1.frx":37EC
  513.             Key             =   ""
  514.          EndProperty
  515.          BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  516.             Picture         =   "MDIForm1.frx":38FE
  517.             Key             =   ""
  518.          EndProperty
  519.          BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  520.             Picture         =   "MDIForm1.frx":3A10
  521.             Key             =   ""
  522.          EndProperty
  523.          BeginProperty ListImage18 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  524.             Picture         =   "MDIForm1.frx":3B22
  525.             Key             =   ""
  526.          EndProperty
  527.          BeginProperty ListImage19 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  528.             Picture         =   "MDIForm1.frx":3C34
  529.             Key             =   ""
  530.          EndProperty
  531.          BeginProperty ListImage20 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  532.             Picture         =   "MDIForm1.frx":3D46
  533.             Key             =   ""
  534.          EndProperty
  535.          BeginProperty ListImage21 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  536.             Picture         =   "MDIForm1.frx":4060
  537.             Key             =   ""
  538.          EndProperty
  539.          BeginProperty ListImage22 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  540.             Picture         =   "MDIForm1.frx":45A2
  541.             Key             =   ""
  542.          EndProperty
  543.       EndProperty
  544.    End
  545.    Begin VB.Menu mnuFile 
  546.       Caption         =   "&File"
  547.       Begin VB.Menu mnuNew 
  548.          Caption         =   "&New"
  549.          Shortcut        =   ^N
  550.       End
  551.       Begin VB.Menu mnuOpen 
  552.          Caption         =   "&Open"
  553.          Shortcut        =   ^O
  554.       End
  555.       Begin VB.Menu mnuClose 
  556.          Caption         =   "&Close"
  557.       End
  558.       Begin VB.Menu mnu1 
  559.          Caption         =   "-"
  560.       End
  561.       Begin VB.Menu mnuSave 
  562.          Caption         =   "&Save"
  563.          Enabled         =   0   'False
  564.          Shortcut        =   ^S
  565.       End
  566.       Begin VB.Menu mnuSaveAs 
  567.          Caption         =   "&SaveAs"
  568.          Enabled         =   0   'False
  569.       End
  570.       Begin VB.Menu mnuDelete 
  571.          Caption         =   "&Delete"
  572.          Enabled         =   0   'False
  573.       End
  574.       Begin VB.Menu mnu2 
  575.          Caption         =   "-"
  576.       End
  577.       Begin VB.Menu mnuPrintPreview 
  578.          Caption         =   "&Print Preview"
  579.          Enabled         =   0   'False
  580.       End
  581.       Begin VB.Menu mnuPrint 
  582.          Caption         =   "&Print"
  583.          Enabled         =   0   'False
  584.          Shortcut        =   ^P
  585.       End
  586.       Begin VB.Menu mnu3 
  587.          Caption         =   "-"
  588.       End
  589.       Begin VB.Menu mnuRun 
  590.          Caption         =   "&Run"
  591.       End
  592.       Begin VB.Menu mnuSep 
  593.          Caption         =   "-"
  594.       End
  595.       Begin VB.Menu mnuExit 
  596.          Caption         =   "&Exit"
  597.       End
  598.    End
  599.    Begin VB.Menu mnuEdit 
  600.       Caption         =   "&Edit"
  601.       Begin VB.Menu mnuUndo 
  602.          Caption         =   "&Undo"
  603.       End
  604.       Begin VB.Menu mnuCut 
  605.          Caption         =   "&Cut"
  606.          Enabled         =   0   'False
  607.          Shortcut        =   ^X
  608.       End
  609.       Begin VB.Menu mnuCopy 
  610.          Caption         =   "C&opy"
  611.          Enabled         =   0   'False
  612.          Shortcut        =   ^C
  613.       End
  614.       Begin VB.Menu mnuPaste 
  615.          Caption         =   "&Paste"
  616.       End
  617.       Begin VB.Menu mnu4 
  618.          Caption         =   "-"
  619.       End
  620.       Begin VB.Menu mnuFind 
  621.          Caption         =   "&Find "
  622.          Enabled         =   0   'False
  623.          Shortcut        =   ^F
  624.       End
  625.       Begin VB.Menu mnuReplace 
  626.          Caption         =   "R&eplace"
  627.          Enabled         =   0   'False
  628.       End
  629.       Begin VB.Menu mnuFindFiles 
  630.          Caption         =   "F&ind Files"
  631.       End
  632.       Begin VB.Menu mnu45 
  633.          Caption         =   "-"
  634.       End
  635.       Begin VB.Menu mnuSelectAll 
  636.          Caption         =   "&Select All"
  637.       End
  638.       Begin VB.Menu mnuTimeDate 
  639.          Caption         =   "&Time/Date"
  640.       End
  641.    End
  642.    Begin VB.Menu mnuView 
  643.       Caption         =   "&View"
  644.       Begin VB.Menu mnuWordCount 
  645.          Caption         =   "&Word Count"
  646.          Checked         =   -1  'True
  647.          Enabled         =   0   'False
  648.       End
  649.       Begin VB.Menu mnu7 
  650.          Caption         =   "-"
  651.       End
  652.       Begin VB.Menu mnuToolbar 
  653.          Caption         =   "&Toolbar"
  654.          Checked         =   -1  'True
  655.       End
  656.       Begin VB.Menu mnuStatusBar 
  657.          Caption         =   "&Status Bar"
  658.          Checked         =   -1  'True
  659.       End
  660.    End
  661.    Begin VB.Menu mnuFormat 
  662.       Caption         =   "F&ormat"
  663.       Enabled         =   0   'False
  664.       Visible         =   0   'False
  665.       Begin VB.Menu mnuFormatText 
  666.          Caption         =   "&Text"
  667.          Enabled         =   0   'False
  668.       End
  669.    End
  670.    Begin VB.Menu mnuTools 
  671.       Caption         =   "&Tools"
  672.       Begin VB.Menu mnuSpelling 
  673.          Caption         =   "&Spelling"
  674.          Enabled         =   0   'False
  675.       End
  676.    End
  677.    Begin VB.Menu mnuWindow 
  678.       Caption         =   "&Window"
  679.       WindowList      =   -1  'True
  680.       Begin VB.Menu mnuCascade 
  681.          Caption         =   "&Cascade"
  682.       End
  683.       Begin VB.Menu mnuTile 
  684.          Caption         =   "&Tile"
  685.       End
  686.    End
  687.    Begin VB.Menu mnuHelp 
  688.       Caption         =   "&Help"
  689.       Begin VB.Menu mnuVBContents 
  690.          Caption         =   "&VB Contents"
  691.       End
  692.       Begin VB.Menu mnu5 
  693.          Caption         =   "-"
  694.       End
  695.       Begin VB.Menu mnuAboutDocument 
  696.          Caption         =   "&About Document"
  697.          Shortcut        =   {F1}
  698.       End
  699.    End
  700. Attribute VB_Name = "MDIForm1"
  701. Attribute VB_GlobalNameSpace = False
  702. Attribute VB_Creatable = False
  703. Attribute VB_PredeclaredId = True
  704. Attribute VB_Exposed = False
  705. Private Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  706. Private Const SW_SHOWNORMAL = 1
  707. Private Const SW_SHOWMINIMIZED = 2
  708. Private Const SW_SHOWMAXIMIZED = 3
  709. Private Const SW_SHOW = 5
  710. Private Const SW_MINIMIZE = 6
  711. Private Const SW_SHOWMINNOACTIVE = 7
  712. Private Const SW_SHOWNA = 8
  713. Private Const SW_RESTORE = 9
  714. Private Const SW_SHOWDEFAULT = 10
  715. Private Declare Function sendmessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wmsg As Long, ByVal wparam As Integer, ByVal lparam As Long) As Long
  716. Private Sub SetToolBarFlat(tlbTemp As Toolbar)
  717.         Dim lngStyle As Long
  718.         Dim lngResult As Long
  719.         Dim lngHWND As Long
  720.         lngHWND = FindWindowEx(tlbTemp.hwnd, 0&, "ToolbarWindow32", vbNullString)
  721.         lngStyle = sendmessage(lngHWND, TB_GETSTYLE, &O0, &O0)
  722.         lngStyle = lngStyle Or TBSTYLE_FLAT
  723.         lngResult = sendmessage(lngHWND, TB_SETSTYLE, 0, lngStyle)
  724.         tlbTemp.Refresh
  725. End Sub
  726. Private Sub Combo2_Click()
  727. On Error GoTo ErrorTrap
  728. frmOpenDoc.RichTextBox1.SelFontSize = Combo2
  729. boolsave = True
  730. Me.mnuSaveAs.Enabled = True
  731. Me.Toolbar1.Buttons(4).Enabled = True
  732. frmOpenDoc.SetFocus
  733. Exit Sub
  734. ErrorTrap:
  735. Call ErrorTrap
  736. boolsave = False
  737. ControlsDisabled
  738. End Sub
  739. Private Sub MDIForm_Load()
  740. On Error GoTo FindError
  741. Call CheckSoftware(MDIForm1)
  742. Call SetToolBarFlat(Toolbar1)
  743. frmOpenDoc.RichTextBox1.SetFocus
  744. StatusBar1.Panels(1).Text = "Create a new Document"
  745. StatusBar1.Panels(2).Text = User1
  746. boolnew = True
  747. CommonDialog1.Filter = "All Files (*.*)| *.*|Text Files" & _
  748. "(*.txt)| *.txt|"
  749. mnuWordCount.Checked = False
  750. With Combo2
  751. .AddItem "8"
  752. .AddItem "10"
  753. .AddItem "12"
  754. .AddItem "14"
  755. .AddItem "16"
  756. .AddItem "18"
  757. .AddItem "20"
  758. .AddItem "22"
  759. .AddItem "36"
  760. .AddItem "72"
  761. .ListIndex = 0
  762. .ZOrder
  763. End With
  764. boolsave = False
  765. Exit Sub
  766. FindError:
  767. Call ErrorTrap
  768. End Sub
  769. Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  770. If boolnew = True And boolsave = True Then
  771. Response = MsgBox("  Do You Want To Save Changes?", vbQuestion + vbYesNoCancel)
  772. Me.CommonDialog2.CancelError = True
  773. On Error GoTo ErrHandler
  774. Select Case Response
  775. Case vbYes
  776. On Error GoTo ErrHandler
  777. Me.CommonDialog2.Flags = &H2 'File exists
  778. Me.CommonDialog2.ShowSave
  779. frmOpenDoc.RichTextBox1.SaveFile Me.CommonDialog2.filename
  780. boolsave = False
  781. Exit Sub
  782. Case vbNo
  783. End Select
  784. If boolsave = True Then
  785. Response = MsgBox("  Do You Want To Save Changes?", vbQuestion + vbYesNoCancel)
  786. Me.CommonDialog2.CancelError = True
  787. On Error GoTo ErrHandler
  788. Select Case Response
  789. Case vbYes
  790. Call SaveDoc
  791. If bCannotSave = False Then
  792. End If
  793. Case vbNo
  794. End Select
  795. End If
  796. End If
  797. ErrHandler:
  798. Cancel = True
  799. End Sub
  800. Private Sub mnuAboutDocument_Click()
  801. frmAbout1.Show 1
  802. End Sub
  803. Private Sub mnuCascade_Click()
  804. Me.Arrange Cascade
  805. End Sub
  806. Private Sub mnuClose_Click()
  807. Call CloseFile
  808. End Sub
  809. Private Sub mnuCopy_Click()
  810. Call Copy
  811. End Sub
  812. Private Sub mnuCut_Click()
  813. Call Cut
  814. End Sub
  815. Private Sub mnuDelete_Click()
  816. Call Recycle
  817. End Sub
  818. Private Sub mnuExit_Click()
  819. Call DocUnload
  820. End Sub
  821. Private Sub mnuFind_Click()
  822. frmFind.Show
  823. End Sub
  824. Private Sub mnuFindFiles_Click()
  825. Screen.MousePointer = 11
  826. Dim strPathToSearch As String
  827.     strPathToSearch = "C:\"
  828.     Call ShellExecute(Me.hwnd, "find", strPathtoString, vbNullString, vbNullString, SW_SHOWNORMAL)
  829. Screen.MousePointer = 0
  830. End Sub
  831. Private Sub mnuFormatText_Click()
  832. frmFormatText.Show 1
  833. End Sub
  834. Private Sub mnuNew_Click()
  835. 'Dim NewChild As New frmOpenDoc
  836. 'NewChild.Show
  837. On Error GoTo FindError:
  838. If boolnew = True And boolsave = True Then
  839.     Call NewModExisting
  840. If boolsave = True Then
  841.     Call CloseModExistNewDoc
  842.     If bCannotSave = False Then
  843.         boolnew = True
  844.     End If
  845. Call ControlsDisabled
  846. Me.mnuTimeDate.Enabled = True
  847. Combo2.Enabled = True
  848. With frmOpenDoc
  849.     .Visible = True
  850.     .RichTextBox1.Visible = True
  851.     .RichTextBox1.Enabled = True
  852.     .WindowState = 0
  853.     .Width = Screen.Width * 0.89 ' Set width of form.
  854.     .Height = Screen.Height * 0.61   ' Set height of form.
  855.     .Left = (Screen.Width - Width) / 19.5  ' Center form horizontally.
  856.     .Top = (Screen.Height - Height) / 20 ' Center form vertically.
  857.     .Caption = "New Document"
  858.     .SetFocus
  859. End With
  860. StatusBar1.Panels(1).Text = "Create a new Document"
  861. Me.mnuPaste.Enabled = True: Me.Toolbar1.Buttons(14).Enabled = True
  862. boolnew = True
  863. End If
  864. End If
  865. Exit Sub
  866. FindError:
  867. Call ErrorTrap
  868. End Sub
  869. Private Sub mnuOpen_Click()
  870. Call OpenFile
  871. End Sub
  872. Private Sub mnuPaste_Click()
  873. Call Paste
  874. End Sub
  875. Private Sub mnuPrint_Click()
  876. Call PrintDoc
  877. End Sub
  878. Private Sub mnuPrintPreview_Click()
  879. frmPreview.Show 1
  880. End Sub
  881. Private Sub mnuReplace_Click()
  882. frmReplace.Show
  883. End Sub
  884. Private Sub mnuRun_Click()
  885. frmRun.Show
  886. End Sub
  887. Private Sub mnuSave_Click()
  888. Call SaveDoc
  889. End Sub
  890. Private Sub mnuSaveAs_Click()
  891. Call SaveAs
  892. End Sub
  893. Private Sub mnuSelectAll_Click()
  894.     With frmOpenDoc.RichTextBox1
  895.         .SelStart = 0
  896.         .SelLength = Len(frmOpenDoc.RichTextBox1.Text)
  897.         .SetFocus
  898.     End With
  899. End Sub
  900. Private Sub mnuSpelling_Click()
  901. Call Spelling
  902. End Sub
  903. Private Sub mnuStatusBar_Click()
  904. If mnuStatusBar.Checked = False Then
  905. StatusBar1.Visible = True
  906. StatusBar1.Visible = False
  907. End If
  908. mnuStatusBar.Checked = Not mnuStatusBar.Checked
  909. End Sub
  910. Private Sub mnuTile_Click()
  911. Me.Arrange TILE_HORIZONTAL
  912. End Sub
  913. Private Sub mnuTimeDate_Click()
  914. Call RichTextKeyDown
  915. frmOpenDoc.RichTextBox1.SelText = Now
  916. boolsave = True
  917. If boolnew = True And boolsave = True Then
  918. Me.mnuSaveAs.Enabled = True
  919. Me.Toolbar1.Buttons(4).Enabled = True
  920. Me.mnuSaveAs.Enabled = True
  921. Me.Toolbar1.Buttons(4).Enabled = True
  922. Me.mnuSave.Enabled = True
  923. Me.Toolbar1.Buttons(3).Enabled = True
  924. End If
  925. End Sub
  926. Private Sub mnuToolbar_Click()
  927. If mnuToolbar.Checked = False Then
  928. Toolbar1.Visible = True
  929. Toolbar1.Visible = False
  930. End If
  931. mnuToolbar.Checked = Not mnuToolbar.Checked
  932. End Sub
  933. Private Sub mnuUndo_Click()
  934.     Dim OK As Long
  935.     OK = sendmessage(Screen.ActiveForm.ActiveControl.hwnd, EM_UNDO, 0&, 0&)
  936. End Sub
  937. Private Sub mnuVBContents_Click()
  938. Screen.MousePointer = vbArrowQuestion
  939. CommonDialog4.HelpFile = "VB5.HLP"
  940. CommonDialog4.HelpCommand = cdlHelpContents
  941. CommonDialog4.ShowHelp
  942. Screen.MousePointer = 0
  943. End Sub
  944. Private Sub mnuWordCount_Click()
  945. If frmOpenDoc.RichTextBox1.Text = "" Then
  946.     Exit Sub
  947. End If
  948. Screen.MousePointer = 11
  949. StatusBar1.Panels(1).Text = "Loading word count, please wait..."
  950. On Error GoTo ErrorTrap:
  951. 'Dim WordCount As Object, dlg As Object
  952. If mnuWordCount.Checked = False Then
  953. Set wordcontact = CreateObject("Word.basic")
  954. Clipboard.Clear
  955. Clipboard.SetText frmOpenDoc.RichTextBox1.Text, 1
  956. wordcontact.FileNewDefault
  957. wordcontact.EditPaste
  958. wordcontact.ToolsWordCount
  959. Set dlg = wordcontact.curvalues.ToolsWordCount
  960. StatusBar2.Visible = True
  961. c = dlg.characters
  962. w = dlg.words
  963. p = dlg.paragraphs
  964. cr = Chr(13)
  965. n = "Characters = " & c
  966. n = n & "             Words = " & w
  967. n = n & "             Paragraphs = " & p
  968. StatusBar2.Panels(1) = n
  969. wordcontact.FileExit 2
  970. Set wordcontact = Nothing
  971. StatusBar2.Visible = False
  972. End If
  973. mnuWordCount.Checked = Not mnuWordCount.Checked
  974. If boolnew = True Then
  975. StatusBar1.Panels(1) = CommonDialog2.filename
  976. StatusBar1.Panels(1) = CommonDialog1.filename
  977. End If
  978. Screen.MousePointer = 0
  979. Exit Sub
  980. ErrorTrap:
  981. Call ErrorTrap
  982. Screen.MousePointer = 0
  983. If boolnew = True Then
  984. StatusBar1.Panels(1) = CommonDialog2.filename
  985. StatusBar1.Panels(1) = CommonDialog1.filename
  986. End If
  987. Set wordcontact = Nothing
  988. End Sub
  989. Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
  990. Select Case Button.Index
  991. Case 1: Call mnuNew_Click
  992. Case 2: Call OpenFile
  993. Case 3: Call SaveDoc
  994. Case 4: Call SaveAs
  995. Case 5: Call Recycle
  996. Case 6: Call PrintDoc
  997. Case 7: frmPreview.Show 1
  998. Case 8: Call CloseFile
  999. Case 12: Call Cut
  1000. Case 13: Call Copy
  1001. Case 14: Call Paste
  1002. Case 16: Call Spelling
  1003. Case 18: frmFind.Show
  1004. Case 22
  1005. If frmOpenDoc.RichTextBox1.SelBold = True Then
  1006. frmOpenDoc.RichTextBox1.SelBold = False
  1007. Toolbar1.Buttons(22).Value = 0
  1008. SaveEnabled
  1009. frmOpenDoc.RichTextBox1.SelBold = True
  1010. Toolbar1.Buttons(22).Value = 1
  1011. boolsave = True
  1012. SaveEnabled
  1013. End If
  1014. Case 23
  1015. If frmOpenDoc.RichTextBox1.SelItalic = True Then
  1016. frmOpenDoc.RichTextBox1.SelItalic = False
  1017. Toolbar1.Buttons(23).Value = 0
  1018. SaveEnabled
  1019. frmOpenDoc.RichTextBox1.SelItalic = True
  1020. Toolbar1.Buttons(23).Value = 1
  1021. boolsave = True
  1022. SaveEnabled
  1023. End If
  1024. Case 24
  1025. If frmOpenDoc.RichTextBox1.SelUnderline = True Then
  1026. frmOpenDoc.RichTextBox1.SelUnderline = False
  1027. Toolbar1.Buttons(24).Value = 0
  1028. SaveEnabled
  1029. frmOpenDoc.RichTextBox1.SelUnderline = True
  1030. Toolbar1.Buttons(24).Value = 1
  1031. boolsave = True
  1032. SaveEnabled
  1033. End If
  1034. Case 25
  1035. If frmOpenDoc.RichTextBox1.SelStrikeThru = True Then
  1036. frmOpenDoc.RichTextBox1.SelStrikeThru = False
  1037. Toolbar1.Buttons(25).Value = 0
  1038. SaveEnabled
  1039. frmOpenDoc.RichTextBox1.SelStrikeThru = True
  1040. Toolbar1.Buttons(25).Value = 1
  1041. boolsave = True
  1042. SaveEnabled
  1043. End If
  1044. Case 29
  1045. frmOpenDoc.RichTextBox1.SelAlignment = 0
  1046. boolsave = True
  1047. SaveEnabled
  1048. Case 30
  1049. frmOpenDoc.RichTextBox1.SelAlignment = 2
  1050. boolsave = True
  1051. SaveEnabled
  1052. Case 31
  1053. frmOpenDoc.RichTextBox1.SelAlignment = 1
  1054. boolsave = True
  1055. SaveEnabled
  1056. Case 46: Call DocUnload
  1057. End Select
  1058. End Sub
  1059. Private Sub Cut()
  1060. Clipboard.Clear
  1061. Clipboard.SetText frmOpenDoc.RichTextBox1.SelText
  1062. frmOpenDoc.RichTextBox1.SelText = ""
  1063. boolsave = True
  1064. Call SaveEnabled
  1065. End Sub
  1066. Private Sub Copy()
  1067. Clipboard.Clear
  1068. Clipboard.SetText frmOpenDoc.RichTextBox1.SelText
  1069. Call SaveEnabled
  1070. End Sub
  1071. Private Sub Paste()
  1072. frmOpenDoc.RichTextBox1.SelText = Clipboard.GetText()
  1073. If frmOpenDoc.RichTextBox1.Text <> "" Then
  1074.     boolsave = True
  1075.     Call SaveEnabled
  1076.     Call ControlsEnabled
  1077. End If
  1078. End Sub
  1079. Private Sub Recycle()
  1080. Dim op As SHFILEOPSTRUCT
  1081. If boolnew = True Then
  1082.     With op
  1083.         .wFunc = FO_DELETE
  1084.         .pFrom = CommonDialog2.filename
  1085.         .fFlags = FOF_ALLOWUNDO
  1086.     End With
  1087.     SHFileOperation op
  1088.     frmOpenDoc.Visible = False
  1089.     Call ControlsDisabled
  1090.     With op
  1091.         .wFunc = FO_DELETE
  1092.         .pFrom = CommonDialog1.filename
  1093.         .fFlags = FOF_ALLOWUNDO
  1094.     End With
  1095.     SHFileOperation op
  1096.     frmOpenDoc.Visible = False
  1097.     Call ControlsDisabled
  1098. End If
  1099. End Sub
  1100.